|
Autocad VBA : Pfad und Dateiname auslesen und an Attribut übergeben
JoeG am 11.10.2004 um 08:19 Uhr (0)
Hallo Dirk Du kannst das auch Autocad überlasen Als Anlage habe ich einen Block beigefügt. Wenn du diesen Block einfügst zeigt er dir den Namen der Zeichnung an. Der angezeigte Name wird bei jedem Öffnen der Zeichnung aktualisiert. Der Block enthält einen RText mit einer Diesel-Funktion mfg Joe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei neu
JoeG am 28.01.2004 um 10:22 Uhr (0)
Hallo Ich mochte eine Zeichnung die bereits auf dem System gespeichert ist als Vorlage verwänden. Unsere Projekte sind zu einem großen Teil im ziemlich ähnlich deshalb möchte ich ein Programm schreiben mit dem man eine ähnliche Zeichnung als Vorlage öffnen kann. Mit einer Lehren Prototypzeichnung (DWT) starten wir ziemlich selten. Endschuldige das Missverständnis. mfg Joe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei neu
JoeG am 19.01.2004 um 07:21 Uhr (0)
Hallo Leute Ich möchte ein Programm schreiben das eine Zeichnung die bereits auf dem Server gespeichert ist, dem Benutzer als Vorlage öffnen. Unsere Pfade sind ziemlich lang, deshalb das Programm. Mit Open habe ich ein Programm geschrieben, damit ist es öfter passiert das die User zum Speichern anstelle von „Speichern unter“ nur „Speichern“ gedrückt haben und dadurch die alte Zeichnung überschrieben haben. Joe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Speicherpfad eines bmp s
JoeG am 14.10.2004 um 07:37 Uhr (0)
Hallo Heiko eine Frage suchst du bmp auf der Platte oder hast du sie in der Zeichnung eingefügt? Wenn du die in der Zeichnung hast versuch es mahl so Public Sub Bild_suchen() Dim ssetObj As AcadSelectionSet Set ssetObj = ThisDrawing.SelectionSets.Add( XX ) Dim GroupCode(0) As Integer Dim dataCode(0) As Variant GroupCode(0) = 0 dataCode(0) = IMAGE ssetObj.Select acSelectionSetAll, , , GroupCode, dataCode ---------------------------------------- Dim ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei neu
JoeG am 28.01.2004 um 07:16 Uhr (0)
Hallo Martin Diese Lösung ist ziemlich zeitaufwendig da die Zeichnung erst geöffnet und dann als .DWT gespeichert und dann wieder geöffnet werden muss. Danke für die Hilfe. Joe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ACAD VBA + Word
JoeG am 27.10.2004 um 15:15 Uhr (0)
Hallo Vip mit RTEXT kannst du den Inhalt einer TXT-Datei auslesen. Optisch sieht das dann wie ein ganz normaler Text aus. Wenn du die Textdatei änderst wird beim nächsten Öffnen der Zeichnung der Text aktualisiert. Joe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Datei neu
JoeG am 16.01.2004 um 14:38 Uhr (0)
Hallo Leute Ich möchte eine bestehende Zeichnung als Vorlage aufrufen. Mit AutoCAD.Documents.Add d: est.dwg habe ich es bereits versucht, Autocad gibt als Fehlermeldung Vorlagenzeichnung D: est.dwg.dwt befindet sich nicht in der Datei zurück. Kann mir vielleicht jemand helfen!! mfg Joe
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Formular zum ausfüllen meines Zeichnungskopfes
JoeG am 19.11.2003 um 15:40 Uhr (0)
Ich verstehe die Frage nicht „Wie heißt mein Block“. Bei mir habe ich es so gelöst das ich ein Wblock mit dem Schriftkopf erzeigt habe. Die Daten (Benennung, Zeichnungsnummer usw.) die ich variabel habe mochte sind mit Attributen in den Block eingefügbar, diesen Block füge ich dann mit VBA in eine neue Zeichnung ein. Joe
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockdefinition löschen
JoeG am 26.08.2005 um 12:28 Uhr (0)
Hallo HannesDas ist schon richtig.Wenn man Layer usw. die man nicht benutzt in der Zeichnung beläst verschwendet man nur unnütz Speicherplatz und Zeit beim laden der Datei.Sollte man die Elemente irgendwann wieder brauchen kann man sie ja wieder einfügen.Soweit ich weis gibt es in VBA keine Möglichkeit um nur eine Blockdefinition zu löschen.mfgJoe
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Pfad und Dateiname auslesen und an Attribut übergeben
JoeG am 12.10.2004 um 15:48 Uhr (0)
Hallo Dirk Als erstes erzeigst du ein Textobjekte mit dem Befehl rtext . Das Textobjekt kann Dieselausdrücke verarbeiten. Für denn Pfad haben ich „$(upper, $(getvar, DWGPREFIX) $(getvar, DWGNAME) )“ in das Fenster eingegeben. Das war’s auch schon, für andere Anwendungen z.B. Datum und so gibt es unter DIESEL eine halbwegs gute Onlinehilfe in Autocad. In VBA habe ich noch eine andere Möglichkeit Sub block() Dim Einfügepunkt(0 To 2) As Double Einfügepunkt(0) = 2 Einfügepunkt(1) = 2 Einfügep ...
|
| In das Form Autocad VBA wechseln |
